home *** CD-ROM | disk | FTP | other *** search
/ Play Windows 1995 October / CD [playwin].bin / mac / demo / 00133.ls < prev    next >
Encoding:
Text File  |  1995-08-11  |  266 b   |  14 lines
  1. on mouseUp
  2.   puppetSprite(10, 1)
  3.   set the castNum of sprite 10 to 128
  4.   updateStage()
  5.   sound playFile 1, "click"
  6.   repeat while soundBusy(1)
  7.     nothing()
  8.   end repeat
  9.   set the castNum of sprite 10 to 127
  10.   updateStage()
  11.   puppetSprite(10, 0)
  12.   go("hcfresh")
  13. end
  14.